h2 {
background: linear-gradient(to right, #286040, #7CB787, #80A848, #B6CCA5);
-webkit-text-fill-color: transparent;
-webkit-background-clip: text;
font-family: Monaco
}
body {
background-color: #CCD7DB
}
p {
font-family: 'Indie Flower', cursive;
}
I have done Part A and upload it on Github, you can find it here or you can copy the link and paste in the browser https://github.com/ChaseCai0121/stats220.
In part one, I made a meme by R and show it in the index.md. I also write the README.md to introduce the repo to ones who check my Github by chance.
library(tidyverse)
library(magick)
# first meme
go_to_work <- image_read("https://i.stack.imgur.com/FxJvk.jpg") %>%
image_resize("500x500!")
# second meme
off_work <- image_read("https://i.pinimg.com/564x/fb/56/8b/fb568b7b5f90042304051c311233abe2.jpg") %>%
image_resize("500x500!")
# first text
# the box
work_text <- image_blank(width = 500, height = 500, # size
color = "#000000") %>% # filling color
# the text
image_annotate(text = "On my way\nto work", # text content
color = "#FFFFFF", # text color
size = 80, # text size
font = "Impact", # text font
gravity = "center") # text loction
# second text
off_text <- image_blank(width = 500,
height = 500,
color = "#FFFFFF") %>%
image_annotate(text = "On my way\noff work",
color = "#000000",
size = 80,
font = "Impact",
gravity = "center")
frame <- c(work_text, go_to_work, off_text, off_work)
(work_gif_1 <- image_animate(frame, fps = 2))
(work_gif_2 <- image_morph(frame) %>%
image_animate(fps = 100))
The important idea I learnt from Module 1 Creating HTML by combining modern technologies:
Data technologies that you are more curious about: